Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0292.ZIP/GENEPROG.ARC/ADDREC.PRG

Text File | 1985-12-21 | 2KB | 59 lines

* SUBROUTINE ADDREC   3/29/85                              ADDREC
*
USE GENE
SET DEVICE TO SCREEN
ENABLE=" "
DO WHILE .NOT.ENABLE="S"
  APPEND BLANK
  CLEAR
  CLEAR GETS
  @ 1,5  SAY "LAST NAME     " GET LAST
  @ 1,32 SAY "FIRST "         GET FIRST
  @ 1,50 SAY "MIDDLE "        GET MIDDLE
  @ 1,70 SAY "NUM "           GET NUM
  @ 2,5  SAY "CHART         " GET CHART
  @ 2,30 SAY "DESCENDANT    " GET DESCENDANT
  @ 3,5  SAY "RESIDENCES    " GET RESIDENCES
  @ 4,5  SAY "BORN          " GET DOB
  @ 4,30 SAY "PLACE "         GET POB
  @ 5,5  SAY "DIED          " GET DOD
  @ 5,30 SAY "PLACE "         GET POD
  @ 6,5  SAY "SPOUSE        " GET SPOUSE
  @ 7,5  SAY "MARRIED       " GET DMAR
  @ 7,30 SAY "PLACE "         GET PMAR
  @ 8,5  SAY "MOTHER        " GET MOTHER
  @ 9,5  SAY "FATHER        " GET FATHER
  @ 10,5 SAY "CHILDREN  1&6 " GET CHILD1
  @ 11,5 SAY "          2&7 " GET CHILD2
  @ 12,5 SAY "          3&8 " GET CHILD3
  @ 13,5 SAY "          4&9 " GET CHILD4
  @ 14,5 SAY "          5&10" GET CHILD5
  @ 15,5 SAY "SISTERS       " GET SISTERS
  @ 16,5 SAY "BROTHERS      " GET BROTHERS
  @ 17,5 SAY "OCCUPATION    " GET OCCUPATION
  @ 20,5 SAY "CONTINUED     "
  READ
  CLEAR
  @ 10,5 SAY "NOTES         " GET COMM1
  @ 11,5 SAY "              " GET COMM2
  @ 12,5 SAY "              " GET COMM3
  @ 13,5 SAY "              " GET COMM4
  @ 14,5 SAY "              " GET COMM5
  @ 15,5 SAY "REFERENCES    " GET REFERENCE
  @ 16,5 SAY "UPDATED       " GET UPDATE
  @ 22,5 SAY "ENTER S TO END REVIEW OR RETURN TO CONTINUE" GET ENABLE
  READ
ENDDO
CLEAR GETS
CLEAR
ACCEPT "   DO YOU WANT NEW INDEXING (Y OR N)? " TO QUERY
IF QUERY="Y"
  DO DBFILL
  ENDIF
USE GENE INDEX SNINDX
RETURN
*END OF SUBROUTINE